<%Response.Buffer = True%> AS.com en tu móvil <% dim tipo_musica dim clase_musica tipo_musica = Request.QueryString("tipo_musica") clase_musica = Request.QueryString("clase_musica") bcodigo_movil = Request.QueryString("tcodigo_movil") if bcodigo_movil="" then bcodigo_movil=0 end if codigo_cancion = Request.QueryString("cod_cancion") modelo=Request.QueryString("modelo") set telefonos=Server.CreateObject("ADODB.recordset") set modelos=Server.CreateObject("ADODB.recordset") 'telefonos.ActiveConnection=conexion sql_telefonos="SELECT * FROM TELEFONOS" telefonos.open sql_telefonos,conexion,1,1 'set resultado_telefonos=conexion.Execute sql_telefonos if not (Request.QueryString("enviar") = "Continuar") then %>
Introduce la marca y el modelo del teléfono al que quieres enviar la canción
Marca móvil
Modelo
<%if (bcodigo_movil <> "") then%> <% sql_modelos="SELECT * FROM TELEFONO_MODELO WHERE COD_MOVIL=" & bcodigo_movil modelos.open sql_modelos,conexion,1,1%> <% modelos.Close %> <% else %> <%end if%>


<%else if (Request.QueryString("telefono")=CStr(0) or Request.QueryString("modelo")=CStr(0)) then Response.Write "Selecciona tu teléfono móvil" else if Cint(Request.QueryString("telefono"))=6 or Cint(Request.QueryString("telefono"))=9 then Response.Redirect "pop_melodias.asp?idafiliado='"&afiliadox&"'&cod_cancion=" & Request.QueryString("cod_cancion") & "&tipo_musica=" & Request.QueryString("tipo_musica") & "&clase_musica=" & Request.QueryString("clase_musica") else response.end end if end if end if%>